MDS plot. 10 years of data. Parameters include: Sonde parameters, TOC, NH3, and NO3, TP.
Dendrograph
oc_seasonal <- crosstalk::SharedData$new(oc_data)
crosstalk::bscols(
crosstalk::filter_select(
"oc_site",
"Select a Site:",
multiple = FALSE,
sharedData = oc_seasonal,
~ sitecode
),
crosstalk::filter_select(
"oc_seasonal_param",
"Select a Parameter:",
multiple = FALSE,
sharedData = oc_seasonal,
~ parameter
)
)
plotly::plot_ly(
data = oc_seasonal,
y = ~ reading_num,
x = ~ month,
type = 'box'
)
oc_data2 <- oc_data %>% arrange(collection_date)
oc_seasonal2 <- crosstalk::SharedData$new(oc_data2)
crosstalk::bscols(
crosstalk::filter_select(
"oc_site2",
"Select Sites:",
multiple = TRUE,
sharedData = oc_seasonal2,
~ sitecode
),
crosstalk::filter_select(
"oc_seasonal_param2",
"Select a Parameter:",
multiple = FALSE,
sharedData = oc_seasonal2,
~ parameter
),
crosstalk::filter_select(
"oc_year",
"Select a Year:",
multiple = FALSE,
sharedData = oc_seasonal2,
~ year
)
)
plotly::plot_ly(
data = oc_seasonal2,
y = ~ reading_num,
x = ~ month,
type = 'scatter',
mode = 'lines+markers',
color = ~sitecode
)
z <- make_table(178)
DT::datatable(make_table(178)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(179)
DT::datatable(make_table(179)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(181)
DT::datatable(make_table(181)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(182)
DT::datatable(make_table(182)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(183)
DT::datatable(make_table(183)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(189)
DT::datatable(make_table(189)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(192)
DT::datatable(make_table(192)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(196)
DT::datatable(make_table(196)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(877)
DT::datatable(make_table(877)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(213)
DT::datatable(make_table(213)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)
z <- make_table(75)
DT::datatable(make_table(75)) %>%
DT::formatStyle(
colnames(z[2:8]),
color = styleInterval(c(3.4, 3.8), c('white', 'blue', 'red')),
backgroundColor = styleInterval(c(0.05), c('coral','dodgerblue'))
)